SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE PROCEDURE [dbo].[SP_TMDOCU_PRRE_I02]    
/*---------------------------------------------------------*/    
/*---Empresa              : OFISIS S.A.                  --*/    
/*---Cliente              : OFISIS S.A.              --*/    
/*---Sistema              : Tesoreria                    --*/    
/*---M"dulo               : Empresa                      --*/    
/*---Programa             : Aprobaci”n tmdocu_prre       --*/    
/*---                       y a la TMDOCU_PROV           --*/    
/*---Script               : ttproc_i.sql                 --*/    
/*---Nombre SP            : SP_TMDOCU_PRRE_I02           --*/    
/*---Desarrollado por     : Javier Flores A.             --*/    
/*---Fecha Creaci"n       : 22/04/2002                   --*/    
/*---Base Datos           : Microsoft Sql Server         --*/    
/*---Versi"n              : 8.0                          --*/    
/*---Invoca a SP          :                              --*/    
/*---------------------------------------------------------*/    
/*---------------------------------------------------------*/    
/*---Modificado 1 por     : Carlos Marquez E             --*/    
/*---Fecha Modificaci"n   : 11/09/2004                   --*/     
/*---Detalle Modificaci"n : se adiciono Fecha Recepci½n  --*/    
/*---------------------------------------------------------*/    
/*-------------------------------------------------------*/      
/*---Modificado 2 por     : Maribel Julca Rodriguez      --*/      
/*---Fecha Modificaci©n   : 20/04/2005                   --*/       
/*---Detalle Modificaci©n : ingreso de los campos CO_USUA_CREA Y CO_USUA_MODI                           --*/      
/*-------------------------------------------------------*/      
/*---------------------------------------------------------*/    
/*---Comentarios                                         --*/    
/*---                                                    --*/    
/*---                                                    --*/    
/*---------------------------------------------------------*/    
/*---------------------------------------------------------*/    
/*---Drop Proc SP_TMDOCU_PRRE_I02                        --*/    
/*---Grant all on SP_TMDOCU_PRRE_I02 to public           --*/     
/*---SP_TMDOCU_PRRE_I02 '01' , 1, 1, '03/01/1999',       --*/    
/*--- '03/31/1999', 'N', 1, 0, 0, NULL , NULL            --*/    
/*---------------------------------------------------------*/    
@ISCO_EMPR          TD_VC_002,      
@ISCO_USUA_MODI          TD_VC_008,    
@ISCO_PROV          TD_VC_020,     
@ISCO_TIPO_DOCU     TD_VC_003,     
@ISNU_DOCU_PROV     TD_VC_020,     
@ISCO_MONE          TD_VC_003,    
@ISCO_COND_PAGO     TD_VC_003,      
@IDFE_EMIS          TD_DT_001,    
@IDFE_CTRL          TD_DT_001,    
@ISCO_UNID_CNTB     TD_VC_003,     
@IDFE_VENC          TD_DT_001,    
@INFA_TIPO_CAMB     TD_NU_015_006,     
@INIM_BRUT_AFEC     TD_NU_016_004,     
@INIM_BRUT_INAF     TD_NU_016_004,     
@ISCO_IMP1          TD_VC_003,     
@INPC_IMP1          TD_NU_016_004,     
@INIM_IMP1          TD_NU_016_004,    
@ISCO_IMP2          TD_VC_003,     
@INPC_IMP2          TD_NU_016_004,     
@INIM_IMP2          TD_NU_016_004,     
@ISCO_IMP3          TD_VC_003,     
@INPC_IMP3          TD_NU_016_004,     
@INIM_IMP3          TD_NU_016_004,    
@INIM_TOTA          TD_NU_016_004,     
@ISCO_TIDO_ORIG     TD_VC_003,     
@ISNU_DOCU_ORIG     TD_VC_020,     
@IDFE_DOCU_ORIG     TD_DT_001,     
@ISDE_OBSE          TD_VC_100,    
@IDFE_PROG_PAGO     TD_DT_001,    
@IDFE_REGI_COMP     TD_DT_001,     
@ISNU_CORR_COMP     TD_VC_020     
    
AS    
    
BEGIN TRAN    
     Insert Into TMDOCU_PROV     
      (	 CO_EMPR, 		CO_PROV, 		CO_TIPO_DOCU, 		NU_DOCU_PROV, 		CO_UNID_CONC, 	 CO_COND_PAGO,     
       	 FE_EMIS, 		FE_RECE, 		FE_VENC, 			FE_PROG_PAGO, 		FE_REGI_COMP, 	 FA_TIPO_CAMB, 
		 FA_CAMB_EXTR, 	CO_MONE,    	IM_BRUT_AFEC, 	IM_BRUT_INAF, 		CO_IMP1, 			PC_IMP1, 		 
		 IM_IMP1,  	 	CO_IMP2, 		PC_IMP2,     	IM_IMP2, 			CO_IMP3, 			PC_IMP3, 		 
		 IM_IMP3,  		IM_TOTA, 		IM_PAGA, 		TI_DOCU_ORIG, 		NU_DOCU_ORIG,   	FE_DOCU_ORIG, 	 
		 DE_OBSE, 	 	CO_ESTA_DOCU, 	ST_CONT, 		ST_REND_COMP, 		NU_SREN_GAST, 		NU_CORR_COMP, 	 
		 CO_USUA_CREA,  FE_USUA_CREA, 	CO_USUA_MODI, 	FE_USUA_MODI )    
Values ( @ISCO_EMPR,  	@ISCO_PROV, 	@ISCO_TIPO_DOCU, 	@ISNU_DOCU_PROV, 	@ISCO_UNID_CNTB, @ISCO_COND_PAGO, 
		 @IDFE_EMIS,  	@IDFE_CTRL, 	@IDFE_VENC, 		@IDFE_PROG_PAGO, 	@IDFE_REGI_COMP, @INFA_TIPO_CAMB, 
		 1 ,			@ISCO_MONE,  	@INIM_BRUT_AFEC, 	@INIM_BRUT_INAF, 	@ISCO_IMP1,		 @INPC_IMP1, 	 
		 @INIM_IMP1,   	@ISCO_IMP2,  	@INPC_IMP2, 		@INIM_IMP2, 		@ISCO_IMP3,		 @INPC_IMP3,      
		 @INIM_IMP3, 	@INIM_TOTA, 	0, 					@ISCO_TIDO_ORIG, 	@ISNU_DOCU_ORIG, @IDFE_DOCU_ORIG, 
		 RTRIM(@ISDE_OBSE),'ACT', 		'N', 				'N', 					NULL, 		 @ISNU_CORR_COMP, 
		 @ISCO_USUA_MODI,GETDATE(), 	@ISCO_USUA_MODI, 	GETDATE())     
    
       Update   TMDOCU_PRRE      
       Set      TI_SITU= 'APR',     
                CO_USUA_MODI = @ISCO_USUA_MODI,     
                FE_USUA_MODI = GETDATE()    
       Where    CO_EMPR = @ISCO_EMPR    
                And CO_PROV = @ISCO_PROV    
                And CO_TIPO_DOCU = @ISCO_TIPO_DOCU    
                And NU_DOCU_PROV = @ISNU_DOCU_PROV    
    
    IF (@@ERROR != 0)    
       BEGIN    
         RAISERROR 20001 'ERROR DE INSERCION'    
         ROLLBACK TRAN    
         RETURN    
        END         
    
COMMIT TRAN    
    
/*--------------------------- Fin -------------------------------- */

GO
